home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / OpalDev.lha / AMOS / OpalExample.AMOS / OpalExample.amosSourceCode < prev    next >
AMOS Source Code  |  1992-11-09  |  1KB  |  47 lines
  1. Unpack 15 To 1 : Rem LOWRES NO LACE PIC 
  2. 'Unpack 14 To 1 : Rem LOWRES LACE PIC
  3. Gosub PIC
  4. L:
  5. Repeat 
  6.    I$=Upper$(Inkey$)
  7. Until I$<>""
  8. If I$="Q"
  9.    If _24BIT=1 : Extension_21_02EC 50 : Extension_21_001C : _24BIT=0 : End If 
  10.    End 
  11. End If 
  12. If I$="P"
  13.    Gosub PIC
  14. End If 
  15. I$=""
  16. Goto L
  17. PIC:
  18. Screen Open 7,320,290,2,Lowres : Cls 0 : Screen To Back 7
  19. F$=Fsel$("","","PIC A 24Bit PIC!")
  20. Screen Close 7
  21. View 
  22. If F$="" Then End 
  23. VSCRN= Extension_21_0208(0,F$,8)
  24. If _24BIT=1
  25.    Poke OSCRN+142,0 : Rem set pixel read mask to 0 
  26.     Extension_21_04D6 : Rem wait for last register  update to complete   
  27.     Extension_21_027E : Rem Update pixel read mask 
  28.     Extension_21_04D6 : Rem Wait for end of Update 
  29.     Extension_21_01C6 1 : Rem Mask only has an effect in palette mapped mode 
  30.     Extension_21_0122 : Rem goto opal only display 
  31.     Extension_21_0148 
  32. End If 
  33. OSCRN= Extension_21_05B2(VSCRN,0)
  34.  Extension_21_05FE 1
  35. Poke OSCRN+142,255 : Rem set mask back to $ff 
  36.  Extension_21_04D6 
  37.  Extension_21_027E : Rem update mask
  38.  Extension_21_04D6 
  39.  Extension_21_01C6 0
  40.  Extension_21_010C 
  41.  Extension_21_0132 
  42.  Extension_21_0268(VSCRN)
  43. 'Ovscroll24 12,52
  44. _24BIT=1
  45. Return 
  46. If _24BIT=1 Then Extension_21_001C : _24BIT=0
  47. Return